home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / t3script.arc / SCHLIGHT.SLT < prev    next >
Encoding:
Text File  |  1990-04-14  |  3.3 KB  |  80 lines
  1. /////////////////////////////////////////////////////////////////////////
  2. //          SCHLIGHT.SLT  -  by Terry Robertson (October 1988)         //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //    SCRIPT TO LOG-ON TO A SEARCHLIGHT SYSTEM.                        //
  6. //                                                                     //
  7. //    Please note that this script expects you to have assigned your   //
  8. //    FULL NAME to function key F4. The easiest way to do this is by   //
  9. //    using the FKEY script in this collection.                        //
  10. //                                                                     //
  11. //    In addition, the script is written so that it will abort if you  //
  12. //    have not completed the relevant PASSWORD entry in the Dialling   //
  13. //    Directory.                                                       //
  14. //                                                                     //
  15. //    I have assumed that you want to use the linked scripts CONNECT   //
  16. //    and CAPTURE. If you do not have these or prefer not to use       //
  17. //    them you should "comment out" the two lines starting "call"      //
  18. //    by simply putting "//" before the word "call".                   //
  19. //                                                                     //
  20. //    TELIX supports ANSI graphics and I have assumed that you wish    //
  21. //    to take advantage of this feature and that you have a colour     //
  22. //    monitor. If this is not the case you should go to the area       //
  23. //    below dealing with graphics and change the "C" to either "M" or  //
  24. //    "N" as required.                                                 //
  25. //                                                                     //
  26. /////////////////////////////////////////////////////////////////////////
  27.  
  28.  
  29. str s[30];
  30.  
  31. main()
  32.  
  33. {
  34.  alarm(1);
  35.  
  36.  call("connect", 1);                    // Gives "connect" information by
  37.                                         // calling Connect.slc script
  38.  call("capture", 1);                    // Opens new capture file by calling
  39.                                         // Capture.slc script
  40.  
  41.  if (not _entry_pass)                   // no pass, so didn't recog. board
  42.   {
  43.    prints ("Sorry, I don't know the password for this BBS!");
  44.    return;
  45.   }
  46.  
  47.  Waitfor("or [N]one ?");                  // identify Graphics prompt ...
  48.  cputs("C");                              // send "C" for colour; alternatives
  49.                                           // are "M" for mono or "N" for none
  50.  cputs("^M");
  51.  cputs("^C");                             // \
  52.  cputs("^C");                             //  } kill next three screens
  53.  cputs("^C");                             // /
  54.  
  55.  
  56.  if (not waitfor("name", 20))             // if no prompt for name
  57.   {
  58.    prints("Log-on failed!");
  59.    return;                                // ...abort
  60.   }
  61.  
  62.  keyget(0x3e00, 0, s);
  63.  delchrs(s, strlen(s) - 2, strlen(s));
  64.  cputs(s);
  65.  cputs("^M");
  66.  
  67.  if (not waitfor("Password?", 20))        // if no prompt for password
  68.   {
  69.    prints("Log-on failed!");
  70.    return;                                // ...abort
  71.   }
  72.  
  73.  cputs(_entry_pass);                      // send password
  74.  cputs("^M");
  75.  
  76.  Waitfor("[RETURN]:");
  77.  cputs("^M");
  78.  
  79.   }
  80.